home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 02 - 1986 / 02.11 Nov 86.sit / 02.11 Nov 86 / tab article / Source Files / tabEditor.pas < prev    next >
MacBinary  |  1986-10-13  |  11.1 KB  |  [TEXT/EDIT]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert TheDraw Pascal screen Image (image/theDrawPascalScreenImage) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Mon Oct 13 17:33:13 1986, modified Mon Oct 13 17:33:13 1986, creator Macintosh Edit, type ASCII, 10803 bytes "tabEditor.pas" , at 0x2ab3 348 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[EDIT]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 74 61 62 45 64 69 | 74 6f 72 2e 70 61 73 00 |..tabEdi|tor.pas.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 2a 33 00 | 00 01 5c 9b b7 19 19 9b |.....*3.|..\.....|
|00000060| b7 19 19 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 7b 66 00 00 |........|....{f..|
|00000080| 50 72 6f 67 72 61 6d 20 | 54 61 62 45 64 69 74 6f |Program |TabEdito|
|00000090| 72 3b 0d 0d 7b 20 50 61 | 73 63 61 6c 20 73 6f 75 |r;..{ Pa|scal sou|
|000000a0| 72 63 65 3a 09 74 61 62 | 45 64 69 74 6f 72 2e 50 |rce:.tab|Editor.P|
|000000b0| 61 73 20 3e 20 74 61 62 | 45 64 69 74 6f 72 2e 72 |as > tab|Editor.r|
|000000c0| 65 6c 0d 20 20 61 73 73 | 65 6d 62 6c 79 20 73 6f |el.  ass|embly so|
|000000d0| 75 72 63 65 3a 09 74 61 | 62 47 6c 75 65 2e 61 73 |urce:.ta|bGlue.as|
|000000e0| 6d 20 3e 20 74 61 62 47 | 6c 75 65 2e 72 65 6c 0d |m > tabG|lue.rel.|
|000000f0| 20 20 52 65 73 6f 75 72 | 63 65 73 3a 09 74 61 62 |  Resour|ces:.tab|
|00000100| 45 64 69 74 6f 72 2e 52 | 20 3e 20 74 61 62 45 64 |Editor.R| > tabEd|
|00000110| 69 74 6f 72 2f 52 53 52 | 43 2e 72 65 6c 7d 0d 0d |itor/RSR|C.rel}..|
|00000120| 7b 24 54 20 41 50 50 4c | 20 42 52 41 44 09 7d 0d |{$T APPL| BRAD.}.|
|00000130| 7b 24 42 2b 20 73 65 74 | 20 62 75 6e 64 6c 65 20 |{$B+ set| bundle |
|00000140| 62 69 74 09 7d 0d 7b 24 | 49 20 4d 65 6d 54 79 70 |bit.}.{$|I MemTyp|
|00000150| 65 73 2e 69 70 61 73 09 | 7d 0d 7b 24 49 20 51 75 |es.ipas.|}.{$I Qu|
|00000160| 69 63 6b 44 72 61 77 2e | 69 70 61 73 09 7d 0d 7b |ickDraw.|ipas.}.{|
|00000170| 24 49 20 4f 53 49 6e 74 | 66 2e 69 70 61 73 09 7d |$I OSInt|f.ipas.}|
|00000180| 0d 7b 24 49 20 54 6f 6f | 6c 49 6e 74 66 2e 69 70 |.{$I Too|lIntf.ip|
|00000190| 61 73 09 7d 0d 7b 24 55 | 20 74 61 62 47 6c 75 65 |as.}.{$U| tabGlue|
|000001a0| 09 7d 0d 7b 24 4c 20 74 | 61 62 45 64 69 74 6f 72 |.}.{$L t|abEditor|
|000001b0| 2f 52 53 52 43 09 7d 0d | 0d 43 4f 4e 53 54 0d 20 |/RSRC.}.|.CONST. |
|000001c0| 20 61 70 70 6c 65 6d 65 | 6e 75 09 3d 20 33 30 31 | appleme|nu.= 301|
|000001d0| 3b 0d 20 20 66 69 6c 65 | 6d 65 6e 75 09 3d 20 33 |;.  file|menu.= 3|
|000001e0| 30 32 3b 0d 20 20 65 64 | 69 74 6d 65 6e 75 09 3d |02;.  ed|itmenu.=|
|000001f0| 20 33 30 33 3b 0d 0d 20 | 20 77 69 6e 64 49 44 09 | 303;.. | windID.|
|00000200| 3d 20 33 30 30 3b 09 7b | 6f 75 72 20 74 65 78 74 |= 300;.{|our text|
|00000210| 20 77 69 6e 64 6f 77 7d | 0d 20 20 61 62 6f 75 74 | window}|.  about|
|00000220| 49 44 09 3d 20 33 30 30 | 3b 09 7b 6d 6f 64 61 6c |ID.= 300|;.{modal|
|00000230| 20 64 69 61 6c 6f 67 7d | 0d 0d 54 59 50 45 0d 20 | dialog}|..TYPE. |
|00000240| 20 74 61 62 52 65 63 6f | 72 64 20 3d 09 52 45 43 | tabReco|rd =.REC|
|00000250| 4f 52 44 0d 09 20 20 74 | 61 62 54 45 3a 09 54 45 |ORD..  t|abTE:.TE|
|00000260| 48 61 6e 64 6c 65 3b 0d | 09 20 20 74 61 62 57 69 |Handle;.|.  tabWi|
|00000270| 64 74 68 3a 09 69 6e 74 | 65 67 65 72 3b 0d 09 20 |dth:.int|eger;.. |
|00000280| 20 6c 61 73 74 54 61 62 | 3a 09 69 6e 74 65 67 65 | lastTab|:.intege|
|00000290| 72 3b 0d 09 20 20 54 61 | 62 73 3a 09 61 72 72 61 |r;..  Ta|bs:.arra|
|000002a0| 79 20 5b 31 2e 2e 31 30 | 30 5d 20 6f 66 20 69 6e |y [1..10|0] of in|
|000002b0| 74 65 67 65 72 3b 0d 09 | 45 4e 44 3b 0d 20 20 74 |teger;..|END;.  t|
|000002c0| 61 62 50 74 72 20 3d 09 | 5e 74 61 62 52 65 63 6f |abPtr =.|^tabReco|
|000002d0| 72 64 3b 0d 20 20 74 61 | 62 48 61 6e 64 6c 65 20 |rd;.  ta|bHandle |
|000002e0| 3d 09 5e 74 61 62 50 74 | 72 3b 0d 20 20 4c 49 70 |=.^tabPt|r;.  LIp|
|000002f0| 74 72 20 3d 09 5e 4c 6f | 6e 67 49 6e 74 3b 0d 0d |tr =.^Lo|ngInt;..|
|00000300| 56 41 52 0d 20 20 64 6f | 6e 65 3a 09 62 6f 6f 6c |VAR.  do|ne:.bool|
|00000310| 65 61 6e 3b 0d 20 20 6d | 79 57 69 6e 64 6f 77 3a |ean;.  m|yWindow:|
|00000320| 09 57 69 6e 64 6f 77 50 | 74 72 3b 0d 20 20 6e 6f |.WindowP|tr;.  no|
|00000330| 77 54 45 3a 09 54 45 48 | 61 6e 64 6c 65 3b 0d 20 |wTE:.TEH|andle;. |
|00000340| 20 6e 6f 77 54 61 62 73 | 3a 09 74 61 62 48 61 6e | nowTabs|:.tabHan|
|00000350| 64 6c 65 3b 0d 20 20 74 | 65 78 74 43 75 72 73 6f |dle;.  t|extCurso|
|00000360| 72 3a 09 63 75 72 73 48 | 61 6e 64 6c 65 3b 0d 20 |r:.cursH|andle;. |
|00000370| 20 44 72 61 67 41 72 65 | 61 3a 09 52 65 63 74 3b | DragAre|a:.Rect;|
|00000380| 0d 20 20 73 74 64 54 45 | 44 6f 54 65 78 74 3a 09 |.  stdTE|DoText:.|
|00000390| 4c 6f 6e 67 49 6e 74 3b | 0d 20 20 73 74 64 4c 69 |LongInt;|.  stdLi|
|000003a0| 6e 65 53 74 61 72 74 3a | 09 4c 6f 6e 67 49 6e 74 |neStart:|.LongInt|
|000003b0| 3b 0d 20 20 67 6c 6f 62 | 61 6c 41 37 30 3a 09 4c |;.  glob|alA70:.L|
|000003c0| 49 50 74 72 3b 0d 20 20 | 67 6c 6f 62 61 6c 37 46 |IPtr;.  |global7F|
|000003d0| 43 3a 09 4c 49 50 74 72 | 3b 0d 20 20 6d 79 51 44 |C:.LIPtr|;.  myQD|
|000003e0| 50 72 6f 63 73 3a 09 51 | 44 50 72 6f 63 73 3b 0d |Procs:.Q|DProcs;.|
|000003f0| 0d 46 55 4e 43 54 49 4f | 4e 20 74 61 62 54 78 4d |.FUNCTIO|N tabTxM|
|00000400| 65 61 73 28 62 79 74 65 | 43 6f 75 6e 74 3a 20 69 |eas(byte|Count: i|
|00000410| 6e 74 65 67 65 72 3b 20 | 74 65 78 74 41 64 64 72 |nteger; |textAddr|
|00000420| 3a 20 50 74 72 3b 20 56 | 41 52 20 6e 75 6d 65 72 |: Ptr; V|AR numer|
|00000430| 2c 64 65 6e 6f 6d 3a 20 | 50 6f 69 6e 74 3b 20 56 |,denom: |Point; V|
|00000440| 41 52 20 69 6e 66 6f 3a | 20 46 6f 6e 74 49 6e 66 |AR info:| FontInf|
|00000450| 6f 29 3a 20 69 6e 74 65 | 67 65 72 3b 20 45 58 54 |o): inte|ger; EXT|
|00000460| 45 52 4e 41 4c 3b 0d 50 | 52 4f 43 45 44 55 52 45 |ERNAL;.P|ROCEDURE|
|00000470| 20 74 61 62 54 78 57 72 | 69 74 65 28 62 79 74 65 | tabTxWr|ite(byte|
|00000480| 43 6f 75 6e 74 3a 20 69 | 6e 74 65 67 65 72 3b 20 |Count: i|nteger; |
|00000490| 74 65 78 74 42 75 66 3a | 20 50 74 72 3b 20 6e 75 |textBuf:| Ptr; nu|
|000004a0| 6d 65 72 2c 64 65 6e 6f | 6d 3a 20 50 6f 69 6e 74 |mer,deno|m: Point|
|000004b0| 29 3b 20 45 58 54 45 52 | 4e 41 4c 3b 0d 50 52 4f |); EXTER|NAL;.PRO|
|000004c0| 43 45 44 55 52 45 20 74 | 61 62 54 45 44 6f 54 45 |CEDURE t|abTEDoTE|
|000004d0| 78 74 3b 20 45 58 54 45 | 52 4e 41 4c 3b 0d 50 52 |xt; EXTE|RNAL;.PR|
|000004e0| 4f 43 45 44 55 52 45 20 | 74 61 62 6c 69 6e 65 53 |OCEDURE |tablineS|
|000004f0| 74 61 72 74 3b 20 45 58 | 54 45 52 4e 41 4c 3b 0d |tart; EX|TERNAL;.|
|00000500| 0d 7b 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.{******|********|
|00000510| 2a 2a 2a 2a 2a 2a 2a 20 | 69 6e 69 74 69 61 6c 69 |******* |initiali|
|00000520| 7a 61 74 69 6f 6e 20 50 | 72 6f 63 65 64 75 72 65 |zation P|rocedure|
|00000530| 73 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |s ******|********|
|00000540| 2a 2a 2a 2a 2a 2a 2a 7d | 0d 7b 2d 2d 2d 2d 2d 2d |*******}|.{------|
|00000550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005a0| 2d 2d 2d 2d 2d 2d 2d 2d | 7d 0d 0d 50 52 4f 43 45 |--------|}..PROCE|
|000005b0| 44 55 52 45 20 53 65 74 | 55 70 46 6f 72 54 61 62 |DURE Set|UpForTab|
|000005c0| 73 28 72 65 73 49 44 3a | 69 6e 74 65 67 65 72 3b |s(resID:|integer;|
|000005d0| 20 77 50 74 72 3a 20 77 | 69 6e 64 6f 77 50 74 72 | wPtr: w|indowPtr|
|000005e0| 29 3b 0d 56 61 72 0d 20 | 20 20 20 61 48 6e 64 6c |);.Var. |   aHndl|
|000005f0| 2c 72 65 73 48 6e 64 6c | 3a 09 68 61 6e 64 6c 65 |,resHndl|:.handle|
|00000600| 3b 0d 20 20 20 20 74 61 | 62 48 3a 09 74 61 62 48 |;.    ta|bH:.tabH|
|00000610| 61 6e 64 6c 65 3b 0d 20 | 20 20 20 69 2c 77 69 64 |andle;. |   i,wid|
|00000620| 74 68 5a 65 72 6f 43 68 | 61 72 3a 09 69 6e 74 65 |thZeroCh|ar:.inte|
|00000630| 67 65 72 3b 0d 20 20 20 | 20 62 54 41 42 73 69 7a |ger;.   | bTABsiz|
|00000640| 65 3a 09 6c 6f 6e 67 49 | 6e 74 3b 0d 42 65 67 69 |e:.longI|nt;.Begi|
|00000650| 6e 0d 20 20 61 48 6e 64 | 6c 3a 3d 20 48 61 6e 64 |n.  aHnd|l:= Hand|
|00000660| 6c 65 28 47 65 74 57 52 | 65 66 43 6f 6e 28 77 50 |le(GetWR|efCon(wP|
|00000670| 74 72 29 29 3b 0d 20 20 | 72 65 73 48 6e 64 6c 3a |tr));.  |resHndl:|
|00000680| 3d 20 47 65 74 52 65 73 | 6f 75 72 63 65 28 27 62 |= GetRes|ource('b|
|00000690| 54 41 42 27 2c 72 65 73 | 49 44 29 3b 0d 20 20 62 |TAB',res|ID);.  b|
|000006a0| 54 41 42 73 69 7a 65 3a | 3d 20 47 65 74 48 61 6e |TABsize:|= GetHan|
|000006b0| 64 6c 65 53 69 7a 65 28 | 72 65 73 48 6e 64 6c 29 |dleSize(|resHndl)|
|000006c0| 3b 0d 7b 6d 61 6b 65 20 | 72 65 6c 20 62 6c 6f 63 |;.{make |rel bloc|
|000006d0| 6b 20 6c 61 72 67 65 20 | 65 6e 6f 75 67 68 20 74 |k large |enough t|
|000006e0| 6f 20 68 6f 6c 64 20 72 | 65 73 74 20 6f 66 20 74 |o hold r|est of t|
|000006f0| 61 62 52 65 63 6f 72 64 | 7d 0d 20 20 53 65 74 48 |abRecord|}.  SetH|
|00000700| 61 6e 64 6c 65 53 69 7a | 65 28 61 48 6e 64 6c 2c |andleSiz|e(aHndl,|
|00000710| 62 54 41 42 73 69 7a 65 | 20 2b 20 36 29 3b 0d 20 |bTABsize| + 6);. |
|00000720| 20 74 61 62 48 3a 3d 20 | 74 61 62 48 61 6e 64 6c | tabH:= |tabHandl|
|00000730| 65 28 61 48 6e 64 6c 29 | 3b 0d 7b 73 65 74 20 74 |e(aHndl)|;.{set t|
|00000740| 61 62 57 69 64 74 68 20 | 66 69 65 6c 64 20 6f 66 |abWidth |field of|
|00000750| 20 74 61 62 52 65 63 6f | 72 64 7d 0d 20 20 74 61 | tabReco|rd}.  ta|
|00000760| 62 48 5e 5e 2e 74 61 62 | 57 69 64 74 68 3a 3d 20 |bH^^.tab|Width:= |
|00000770| 43 68 61 72 57 69 64 74 | 68 28 43 68 72 28 24 39 |CharWidt|h(Chr($9|
|00000780| 29 29 3b 0d 7b 74 72 61 | 6e 73 66 65 72 20 72 65 |));.{tra|nsfer re|
|00000790| 73 74 20 6f 66 20 74 61 | 62 52 65 63 6f 72 64 7d |st of ta|bRecord}|
|000007a0| 0d 20 20 42 6c 6f 63 6b | 4d 6f 76 65 28 72 65 73 |.  Block|Move(res|
|000007b0| 48 6e 64 6c 5e 2c 40 74 | 61 62 48 5e 5e 2e 6c 61 |Hndl^,@t|abH^^.la|
|000007c0| 73 74 54 61 62 2c 62 54 | 41 42 73 69 7a 65 29 3b |stTab,bT|ABsize);|
|000007d0| 0d 20 20 52 65 6c 65 61 | 73 65 52 65 73 6f 75 72 |.  Relea|seResour|
|000007e0| 63 65 28 72 65 73 48 6e | 64 6c 29 3b 0d 0d 20 20 |ce(resHn|dl);..  |
|000007f0| 77 69 64 74 68 5a 65 72 | 6f 43 68 61 72 3a 3d 20 |widthZer|oChar:= |
|00000800| 43 68 61 72 57 69 64 74 | 68 28 43 68 72 28 24 33 |CharWidt|h(Chr($3|
|00000810| 30 29 29 3b 20 20 20 7b | 77 69 64 74 68 20 6f 66 |0));   {|width of|
|00000820| 20 61 20 7a 65 72 6f 20 | 7d 0d 20 20 57 49 54 48 | a zero |}.  WITH|
|00000830| 20 74 61 62 48 5e 5e 20 | 44 4f 0d 20 20 20 20 69 | tabH^^ |DO.    i|
|00000840| 66 20 6c 61 73 74 54 61 | 62 20 3c 3e 20 30 20 74 |f lastTa|b <> 0 t|
|00000850| 68 65 6e 0d 20 20 20 20 | 20 20 66 6f 72 20 69 3a |hen.    |  for i:|
|00000860| 3d 20 31 20 74 6f 20 6c | 61 73 74 54 61 62 20 44 |= 1 to l|astTab D|
|00000870| 4f 09 7b 74 72 61 6e 73 | 66 6f 72 6d 20 74 61 62 |O.{trans|form tab|
|00000880| 73 20 66 72 6f 6d 20 23 | 20 20 6f 66 20 63 68 61 |s from #|  of cha|
|00000890| 72 73 20 7d 0d 20 20 20 | 20 20 20 20 20 54 61 62 |rs }.   |     Tab|
|000008a0| 73 5b 69 5d 3a 3d 20 74 | 61 62 73 5b 69 5d 2a 77 |s[i]:= t|abs[i]*w|
|000008b0| 69 64 74 68 5a 65 72 6f | 43 68 61 72 3b 09 7b 74 |idthZero|Char;.{t|
|000008c0| 6f 20 70 69 78 65 6c 20 | 6c 65 6e 67 74 68 73 7d |o pixel |lengths}|
|000008d0| 0d 0d 20 20 77 50 74 72 | 5e 2e 67 72 61 66 50 72 |..  wPtr|^.grafPr|
|000008e0| 6f 63 73 3a 3d 20 40 6d | 79 51 44 50 72 6f 63 73 |ocs:= @m|yQDProcs|
|000008f0| 3b 0d 45 6e 64 3b 0d 0d | 7b 2d 2d 2d 2d 2d 2d 2d |;.End;..|{-------|
|00000900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000920| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000930| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000940| 2d 2d 2d 2d 2d 2d 7d 0d | 0d 50 52 4f 43 45 44 55 |------}.|.PROCEDU|
|00000950| 52 45 20 53 65 74 75 70 | 4d 65 6e 75 73 3b 0d 56 |RE Setup|Menus;.V|
|00000960| 61 72 09 4d 65 6e 75 54 | 6f 70 69 63 3a 20 4d 65 |ar.MenuT|opic: Me|
|00000970| 6e 75 48 61 6e 64 6c 65 | 3b 0d 42 65 67 69 6e 0d |nuHandle|;.Begin.|
|00000980| 20 20 20 4d 65 6e 75 54 | 6f 70 69 63 20 3a 3d 20 |   MenuT|opic := |
|00000990| 47 65 74 4d 65 6e 75 28 | 41 70 70 6c 65 4d 65 6e |GetMenu(|AppleMen|
|000009a0| 75 29 3b 20 20 7b 67 65 | 74 20 74 68 65 20 61 70 |u);  {ge|t the ap|
|000009b0| 70 6c 65 20 6d 65 6e 75 | 7d 0d 20 20 20 41 64 64 |ple menu|}.   Add|
|000009c0| 52 65 73 4d 65 6e 75 28 | 4d 65 6e 75 54 6f 70 69 |ResMenu(|MenuTopi|
|000009d0| 63 2c 27 44 52 56 52 27 | 29 3b 20 20 20 20 20 7b |c,'DRVR'|);     {|
|000009e0| 61 64 64 73 20 61 6c 6c | 20 27 44 52 56 52 27 73 |adds all| 'DRVR's|
|000009f0| 7d 0d 20 20 20 49 6e 73 | 65 72 74 4d 65 6e 75 28 |}.   Ins|ertMenu(|
|00000a00| 4d 65 6e 75 54 6f 70 69 | 63 2c 30 29 3b 20 20 20 |MenuTopi|c,0);   |
|00000a10| 20 20 20 20 20 20 20 7b | 70 75 74 20 69 6e 20 6d |       {|put in m|
|00000a20| 65 6e 75 42 61 72 7d 0d | 20 0d 20 20 20 4d 65 6e |enuBar}.| .   Men|
|00000a30| 75 54 6f 70 69 63 20 3a | 3d 20 47 65 74 4d 65 6e |uTopic :|= GetMen|
|00000a40| 75 28 46 69 6c 65 4d 65 | 6e 75 29 3b 20 20 20 7b |u(FileMe|nu);   {|
|00000a50| 51 75 69 74 20 26 20 4e | 65 77 7d 0d 20 20 20 49 |Quit & N|ew}.   I|
|00000a60| 6e 73 65 72 74 4d 65 6e | 75 28 4d 65 6e 75 54 6f |nsertMen|u(MenuTo|
|00000a70| 70 69 63 2c 30 29 3b 0d | 20 0d 20 20 20 4d 65 6e |pic,0);.| .   Men|
|00000a80| 75 54 6f 70 69 63 20 3a | 3d 20 47 65 74 4d 65 6e |uTopic :|= GetMen|
|00000a90| 75 28 45 64 69 74 4d 65 | 6e 75 29 3b 0d 20 20 20 |u(EditMe|nu);.   |
|00000aa0| 49 6e 73 65 72 74 4d 65 | 6e 75 28 4d 65 6e 75 54 |InsertMe|nu(MenuT|
|00000ab0| 6f 70 69 63 2c 30 29 3b | 0d 20 0d 20 20 20 44 72 |opic,0);|. .   Dr|
|00000ac0| 61 77 4d 65 6e 75 42 61 | 72 3b 0d 45 6e 64 3b 0d |awMenuBa|r;.End;.|
|00000ad0| 0d 7b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.{------|--------|
|00000ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 7d |--------|-------}|
|00000b20| 0d 0d 46 55 4e 43 54 49 | 4f 4e 20 53 65 74 55 70 |..FUNCTI|ON SetUp|
|00000b30| 54 65 78 74 57 69 6e 64 | 6f 77 28 49 44 5f 4e 6f |TextWind|ow(ID_No|
|00000b40| 3a 20 69 6e 74 65 67 65 | 72 29 3a 20 57 69 6e 64 |: intege|r): Wind|
|00000b50| 6f 77 50 74 72 3b 0d 0d | 76 61 72 0d 20 20 48 6e |owPtr;..|var.  Hn|
|00000b60| 64 6c 3a 09 48 61 6e 64 | 6c 65 3b 0d 20 20 72 3a |dl:.Hand|le;.  r:|
|00000b70| 09 52 65 63 74 3b 0d 20 | 20 6c 69 3a 09 4c 49 70 |.Rect;. | li:.LIp|
|00000b80| 74 72 3b 0d 20 20 6d 79 | 57 3a 09 77 69 6e 64 6f |tr;.  my|W:.windo|
|00000b90| 77 50 74 72 3b 0d 20 20 | 61 54 45 3a 09 54 45 68 |wPtr;.  |aTE:.TEh|
|00000ba0| 61 6e 64 6c 65 3b 0d 0d | 42 65 67 69 6e 0d 20 20 |andle;..|Begin.  |
|00000bb0| 6d 79 57 20 3a 3d 20 47 | 65 74 4e 65 77 57 69 6e |myW := G|etNewWin|
|00000bc0| 64 6f 77 28 49 44 5f 4e | 6f 2c 20 4e 49 4c 2c 20 |dow(ID_N|o, NIL, |
|00000bd0| 50 4f 49 4e 54 45 52 28 | 2d 31 29 29 3b 0d 20 20 |POINTER(|-1));.  |
|00000be0| 53 65 74 50 6f 72 74 28 | 6d 79 57 29 3b 0d 0d 20 |SetPort(|myW);.. |
|00000bf0| 20 72 3a 3d 20 6d 79 57 | 5e 2e 70 6f 72 74 52 65 | r:= myW|^.portRe|
|00000c00| 63 74 3b 0d 20 20 57 49 | 54 48 20 72 20 44 4f 20 |ct;.  WI|TH r DO |
|00000c10| 62 65 67 69 6e 20 74 6f | 70 3a 3d 20 74 6f 70 20 |begin to|p:= top |
|00000c20| 2b 20 34 3b 20 6c 65 66 | 74 3a 3d 20 6c 65 66 74 |+ 4; lef|t:= left|
|00000c30| 20 2b 20 34 3b 20 65 6e | 64 3b 0d 20 20 61 54 45 | + 4; en|d;.  aTE|
|00000c40| 3a 3d 20 54 45 4e 65 77 | 28 72 2c 72 29 3b 0d 0d |:= TENew|(r,r);..|
|00000c50| 20 20 48 6e 64 6c 3a 3d | 20 4e 65 77 48 61 6e 64 |  Hndl:=| NewHand|
|00000c60| 6c 65 28 6f 72 64 34 28 | 34 29 29 3b 0d 20 20 6c |le(ord4(|4));.  l|
|00000c70| 69 3a 3d 20 4c 49 50 74 | 72 28 48 6e 64 6c 5e 29 |i:= LIPt|r(Hndl^)|
|00000c80| 3b 0d 20 20 6c 69 5e 3a | 3d 20 6f 72 64 34 28 61 |;.  li^:|= ord4(a|
|00000c90| 54 45 29 3b 0d 20 20 53 | 65 74 57 52 65 66 43 6f |TE);.  S|etWRefCo|
|00000ca0| 6e 28 6d 79 57 2c 6f 72 | 64 34 28 48 6e 64 6c 29 |n(myW,or|d4(Hndl)|
|00000cb0| 29 3b 0d 7b 6d 79 57 20 | 72 65 66 43 6f 6e 20 68 |);.{myW |refCon h|
|00000cc0| 61 73 20 68 61 6e 64 6c | 65 20 74 6f 20 61 20 72 |as handl|e to a r|
|00000cd0| 65 6c 6f 63 61 74 61 62 | 6c 65 20 62 6c 6f 63 6b |elocatab|le block|
|00000ce0| 20 7d 0d 7b 63 6f 6e 74 | 61 69 6e 69 6e 67 20 6f | }.{cont|aining o|
|00000cf0| 6e 6c 79 20 61 20 54 45 | 68 61 6e 64 6c 65 20 66 |nly a TE|handle f|
|00000d00| 6f 72 20 74 68 65 20 6d | 6f 6d 65 6e 74 7d 0d 0d |or the m|oment}..|
|00000d10| 20 20 53 65 74 55 70 46 | 6f 72 54 61 62 73 28 49 |  SetUpF|orTabs(I|
|00000d20| 44 5f 4e 6f 2c 6d 79 57 | 29 3b 0d 7b 73 68 6f 75 |D_No,myW|);.{shou|
|00000d30| 6c 64 20 62 65 20 63 61 | 6c 6c 65 64 20 6f 6e 63 |ld be ca|lled onc|
|00000d40| 65 20 66 6f 72 20 65 76 | 65 72 79 20 6e 65 77 20 |e for ev|ery new |
|00000d50| 77 69 6e 64 6f 77 20 73 | 75 70 70 6f 72 74 69 6e |window s|upportin|
|00000d60| 67 20 74 61 62 73 7d 0d | 20 20 53 65 74 55 70 54 |g tabs}.|  SetUpT|
|00000d70| 65 78 74 57 69 6e 64 6f | 77 3a 3d 20 6d 79 57 3b |extWindo|w:= myW;|
|00000d80| 0d 45 6e 64 3b 0d 0d 7b | 2d 2d 2d 2d 2d 2d 2d 2d |.End;..{|--------|
|00000d90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000da0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000dc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000dd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000de0| 2d 2d 2d 2d 2d 2d 7d 0d | 0d 50 52 4f 43 45 44 55 |------}.|.PROCEDU|
|00000df0| 52 45 20 49 6e 69 74 69 | 61 6c 69 7a 65 3b 0d 0d |RE Initi|alize;..|
|00000e00| 76 61 72 0d 20 20 69 3a | 09 69 6e 74 65 67 65 72 |var.  i:|.integer|
|00000e10| 3b 0d 20 20 72 3a 09 52 | 65 63 74 3b 0d 0d 42 65 |;.  r:.R|ect;..Be|
|00000e20| 67 69 6e 0d 20 20 49 6e | 69 74 47 72 61 66 28 40 |gin.  In|itGraf(@|
|00000e30| 74 68 65 50 6f 72 74 29 | 3b 20 20 20 20 20 20 20 |thePort)|;       |
|00000e40| 20 20 20 7b 63 72 65 61 | 74 65 20 61 20 67 72 61 |   {crea|te a gra|
|00000e50| 66 70 6f 72 74 20 66 6f | 72 20 74 68 65 20 73 63 |fport fo|r the sc|
|00000e60| 72 65 65 6e 7d 0d 20 20 | 49 6e 69 74 46 6f 6e 74 |reen}.  |InitFont|
|00000e70| 73 3b 0d 20 20 49 6e 69 | 74 57 69 6e 64 6f 77 73 |s;.  Ini|tWindows|
|00000e80| 3b 0d 20 20 49 6e 69 74 | 4d 65 6e 75 73 3b 0d 20 |;.  Init|Menus;. |
|00000e90| 20 54 45 49 6e 69 74 3b | 0d 20 20 49 6e 69 74 44 | TEInit;|.  InitD|
|00000ea0| 69 61 6c 6f 67 73 28 4e | 69 6c 29 3b 0d 0d 7b 63 |ialogs(N|il);..{c|
|00000eb0| 6c 65 61 72 20 65 76 65 | 6e 74 73 20 66 72 6f 6d |lear eve|nts from|
|00000ec0| 20 70 72 65 76 69 6f 75 | 73 20 70 72 6f 67 72 61 | previou|s progra|
|00000ed0| 6d 7d 0d 20 20 46 6c 75 | 73 68 45 76 65 6e 74 73 |m}.  Flu|shEvents|
|00000ee0| 28 65 76 65 72 79 45 76 | 65 6e 74 2c 30 29 3b 0d |(everyEv|ent,0);.|
|00000ef0| 20 20 72 3a 3d 20 53 63 | 72 65 65 6e 42 69 74 73 |  r:= Sc|reenBits|
|00000f00| 2e 42 6f 75 6e 64 73 3b | 0d 20 20 53 65 74 52 65 |.Bounds;|.  SetRe|
|00000f10| 63 74 28 44 72 61 67 41 | 72 65 61 2c 72 2e 6c 65 |ct(DragA|rea,r.le|
|00000f20| 66 74 2b 34 2c 72 2e 74 | 6f 70 2b 32 34 2c 72 2e |ft+4,r.t|op+24,r.|
|00000f30| 72 69 67 68 74 2d 34 2c | 72 2e 62 6f 74 74 6f 6d |right-4,|r.bottom|
|00000f40| 2d 34 29 3b 0d 0d 20 20 | 64 6f 6e 65 3a 3d 20 46 |-4);..  |done:= F|
|00000f50| 41 4c 53 45 3b 0d 7b 77 | 69 6c 6c 20 62 65 20 73 |ALSE;.{w|ill be s|
|00000f60| 65 74 20 74 6f 20 74 72 | 75 65 20 62 79 20 51 55 |et to tr|ue by QU|
|00000f70| 49 54 20 63 6f 6d 6d 61 | 6e 64 20 74 6f 20 73 69 |IT comma|nd to si|
|00000f80| 67 6e 61 6c 20 70 72 6f | 67 72 61 6d 20 74 6f 20 |gnal pro|gram to |
|00000f90| 65 6e 64 7d 0d 20 20 53 | 65 74 75 70 4d 65 6e 75 |end}.  S|etupMenu|
|00000fa0| 73 3b 0d 0d 20 20 6d 79 | 57 69 6e 64 6f 77 20 3a |s;..  my|Window :|
|00000fb0| 3d 20 53 65 74 55 70 54 | 65 78 74 57 69 6e 64 6f |= SetUpT|extWindo|
|00000fc0| 77 28 77 69 6e 64 49 44 | 29 3b 0d 20 20 6e 6f 77 |w(windID|);.  now|
|00000fd0| 54 61 62 73 3a 3d 20 74 | 61 62 48 61 6e 64 6c 65 |Tabs:= t|abHandle|
|00000fe0| 28 47 65 74 57 52 65 66 | 43 6f 6e 28 6d 79 57 69 |(GetWRef|Con(myWi|
|00000ff0| 6e 64 6f 77 29 29 3b 0d | 20 20 6e 6f 77 54 45 3a |ndow));.|  nowTE:|
|00001000| 3d 20 6e 6f 77 54 61 62 | 73 5e 5e 2e 74 61 62 54 |= nowTab|s^^.tabT|
|00001010| 45 3b 0d 0d 20 20 74 65 | 78 74 43 75 72 73 6f 72 |E;..  te|xtCursor|
|00001020| 20 3a 3d 20 47 65 74 43 | 75 72 73 6f 72 28 69 62 | := GetC|ursor(ib|
|00001030| 65 61 6d 43 75 72 73 6f | 72 29 3b 0d 20 20 48 4c |eamCurso|r);.  HL|
|00001040| 6f 63 6b 28 48 61 6e 64 | 6c 65 28 74 65 78 74 43 |ock(Hand|le(textC|
|00001050| 75 72 73 6f 72 29 29 3b | 0d 20 20 49 6e 69 74 43 |ursor));|.  InitC|
|00001060| 75 72 73 6f 72 3b 09 09 | 7b 73 68 6f 77 20 74 68 |ursor;..|{show th|
|00001070| 65 20 41 72 72 6f 77 20 | 63 75 72 73 6f 72 7d 0d |e Arrow |cursor}.|
|00001080| 20 20 0d 20 20 67 6c 6f | 62 61 6c 41 37 30 3a 3d |  .  glo|balA70:=|
|00001090| 20 4c 49 70 74 72 28 24 | 41 37 30 29 3b 7b 67 6c | LIptr($|A70);{gl|
|000010a0| 6f 62 61 6c 20 76 61 72 | 69 61 62 6c 65 20 70 6f |obal var|iable po|
|000010b0| 69 6e 74 73 20 74 6f 20 | 54 45 44 6f 54 65 78 74 |ints to |TEDoText|
|000010c0| 7d 0d 20 20 73 74 64 54 | 45 44 6f 54 65 78 74 3a |}.  stdT|EDoText:|
|000010d0| 3d 20 67 6c 6f 62 61 6c | 41 37 30 5e 3b 0d 7b 73 |= global|A70^;.{s|
|000010e0| 61 76 65 20 70 6f 69 6e | 74 65 72 20 74 6f 20 64 |ave poin|ter to d|
|000010f0| 65 66 61 75 6c 74 20 6d | 69 6e 69 45 64 69 74 20 |efault m|iniEdit |
|00001100| 72 6f 75 74 69 6e 65 7d | 0d 20 20 67 6c 6f 62 61 |routine}|.  globa|
|00001110| 6c 41 37 30 5e 3a 3d 20 | 6f 72 64 34 28 40 74 61 |lA70^:= |ord4(@ta|
|00001120| 62 54 45 44 6f 54 65 78 | 74 29 3b 0d 7b 73 65 74 |bTEDoTex|t);.{set|
|00001130| 20 73 6f 20 63 61 6c 6c | 73 20 74 6f 20 6d 69 6e | so call|s to min|
|00001140| 69 45 64 69 74 20 67 6f | 20 74 6f 20 6f 75 72 20 |iEdit go| to our |
|00001150| 6d 6f 64 69 66 69 65 64 | 20 74 61 62 20 72 6f 75 |modified| tab rou|
|00001160| 74 69 6e 65 7d 0d 0d 20 | 20 67 6c 6f 62 61 6c 37 |tine}.. | global7|
|00001170| 46 43 3a 3d 20 4c 49 70 | 74 72 28 24 37 46 43 29 |FC:= LIp|tr($7FC)|
|00001180| 3b 20 7b 67 6c 6f 62 61 | 6c 20 76 61 72 69 61 62 |; {globa|l variab|
|00001190| 6c 65 20 70 6f 69 6e 74 | 73 20 74 6f 20 6c 69 6e |le point|s to lin|
|000011a0| 65 53 74 61 72 74 7d 0d | 20 20 73 74 64 6c 69 6e |eStart}.|  stdlin|
|000011b0| 65 53 74 61 72 74 3a 3d | 20 67 6c 6f 62 61 6c 37 |eStart:=| global7|
|000011c0| 46 43 5e 3b 0d 7b 73 61 | 76 65 20 70 6f 69 6e 74 |FC^;.{sa|ve point|
|000011d0| 65 72 20 74 6f 20 6e 6f | 6e 54 61 62 20 6c 69 6e |er to no|nTab lin|
|000011e0| 65 53 74 61 72 74 20 72 | 6f 75 74 69 6e 65 7d 0d |eStart r|outine}.|
|000011f0| 20 20 67 6c 6f 62 61 6c | 37 46 43 5e 3a 3d 20 6f |  global|7FC^:= o|
|00001200| 72 64 34 28 40 74 61 62 | 6c 69 6e 65 53 74 61 72 |rd4(@tab|lineStar|
|00001210| 74 29 3b 0d 7b 73 65 74 | 20 73 6f 20 63 61 6c 6c |t);.{set| so call|
|00001220| 73 20 74 6f 20 6c 69 6e | 65 53 74 61 72 74 20 72 |s to lin|eStart r|
|00001230| 6f 75 74 69 6e 65 20 67 | 6f 20 74 6f 20 6f 75 72 |outine g|o to our|
|00001240| 20 6d 6f 64 69 66 69 65 | 64 20 74 61 62 20 72 6f | modifie|d tab ro|
|00001250| 75 74 69 6e 65 7d 0d 0d | 7b 73 65 74 20 75 70 20 |utine}..|{set up |
|00001260| 61 20 73 70 65 63 69 61 | 6c 20 51 44 70 72 6f 63 |a specia|l QDproc|
|00001270| 73 20 72 65 63 6f 72 64 | 20 66 6f 72 20 75 73 65 |s record| for use|
|00001280| 20 77 69 74 68 20 74 61 | 62 20 77 69 6e 64 6f 77 | with ta|b window|
|00001290| 73 7d 0d 20 20 53 65 74 | 53 74 64 50 72 6f 63 73 |s}.  Set|StdProcs|
|000012a0| 28 6d 79 51 44 50 72 6f | 63 73 29 3b 0d 20 20 6d |(myQDPro|cs);.  m|
|000012b0| 79 51 44 50 72 6f 63 73 | 2e 74 78 4d 65 61 73 50 |yQDProcs|.txMeasP|
|000012c0| 72 6f 63 3a 3d 20 40 74 | 61 62 54 78 4d 65 61 73 |roc:= @t|abTxMeas|
|000012d0| 3b 0d 20 20 6d 79 51 44 | 50 72 6f 63 73 2e 74 65 |;.  myQD|Procs.te|
|000012e0| 78 74 50 72 6f 63 3a 3d | 20 40 74 61 62 54 78 57 |xtProc:=| @tabTxW|
|000012f0| 72 69 74 65 3b 0d 0d 45 | 6e 64 3b 0d 0d 7b 2a 2a |rite;..E|nd;..{**|
|00001300| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001310| 2a 2a 2a 2a 20 45 6e 64 | 20 6f 66 20 49 6e 69 74 |**** End| of Init|
|00001320| 69 61 6c 69 7a 61 74 69 | 6f 6e 20 2a 2a 2a 2a 2a |ializati|on *****|
|00001330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001340| 2a 2a 2a 2a 7d 0d 7b 2a | 2a 2a 2a 2a 2a 2a 2a 2a |****}.{*|********|
|00001350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 20 4d 65 6e 75 20 43 |********|* Menu C|
|00001360| 6f 6d 6d 61 6e 64 20 50 | 72 6f 63 65 73 73 69 6e |ommand P|rocessin|
|00001370| 67 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |g ******|********|
|00001380| 2a 2a 2a 2a 7d 0d 7b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |****}.{-|--------|
|00001390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013e0| 2d 2d 2d 2d 2d 7d 0d 0d | 50 52 4f 43 45 44 55 52 |-----}..|PROCEDUR|
|000013f0| 45 20 50 72 6f 63 65 73 | 73 4d 65 6e 75 28 43 6f |E Proces|sMenu(Co|
|00001400| 64 65 57 6f 72 64 3a 6c | 6f 6e 67 69 6e 74 29 3b |deWord:l|ongint);|
|00001410| 0d 56 61 72 0d 20 20 69 | 2c 4d 65 6e 75 5f 4e 6f |.Var.  i|,Menu_No|
|00001420| 2c 09 09 7b 6d 65 6e 75 | 20 6e 75 6d 62 65 72 20 |,..{menu| number |
|00001430| 73 65 6c 65 63 74 65 64 | 7d 0d 20 20 49 74 65 6d |selected|}.  Item|
|00001440| 5f 4e 6f 3a 09 69 6e 74 | 65 67 65 72 3b 09 7b 69 |_No:.int|eger;.{i|
|00001450| 74 65 6d 20 69 6e 20 73 | 65 6c 65 63 74 65 64 20 |tem in s|elected |
|00001460| 20 6d 65 6e 75 7d 0d 20 | 20 4e 61 6d 65 48 6f 6c | menu}. | NameHol|
|00001470| 64 65 72 3a 09 53 74 72 | 32 35 35 3b 09 7b 66 6f |der:.Str|255;.{fo|
|00001480| 72 20 64 65 73 6b 20 61 | 63 63 65 73 73 6f 72 79 |r desk a|ccessory|
|00001490| 7d 0d 20 20 44 4e 41 3a | 09 69 6e 74 65 67 65 72 |}.  DNA:|.integer|
|000014a0| 3b 09 7b 64 75 6d 6d 79 | 20 72 65 74 75 72 6e 7d |;.{dummy| return}|
|000014b0| 0d 20 20 6f 75 72 44 6c | 67 3a 09 64 69 61 6c 6f |.  ourDl|g:.dialo|
|000014c0| 67 50 74 72 3b 0d 42 65 | 67 69 6e 0d 20 20 49 66 |gPtr;.Be|gin.  If|
|000014d0| 20 43 6f 64 65 57 6f 72 | 64 20 3c 3e 20 30 20 74 | CodeWor|d <> 0 t|
|000014e0| 68 65 6e 0d 20 20 42 45 | 47 49 4e 09 09 7b 70 72 |hen.  BE|GIN..{pr|
|000014f0| 6f 63 65 73 73 20 74 68 | 65 20 63 6f 6d 6d 61 6e |ocess th|e comman|
|00001500| 64 7d 0d 20 20 20 20 4d | 65 6e 75 5f 4e 6f 20 3a |d}.    M|enu_No :|
|00001510| 3d 20 48 69 57 6f 72 64 | 28 43 6f 64 65 57 6f 72 |= HiWord|(CodeWor|
|00001520| 64 29 3b 0d 20 20 20 20 | 49 74 65 6d 5f 6e 6f 20 |d);.    |Item_no |
|00001530| 3a 3d 20 4c 6f 57 6f 72 | 64 28 43 6f 64 65 57 6f |:= LoWor|d(CodeWo|
|00001540| 72 64 29 3b 0d 0d 20 20 | 20 20 43 41 53 45 20 4d |rd);..  |  CASE M|
|00001550| 65 6e 75 5f 4e 6f 20 6f | 66 0d 20 20 0d 20 20 20 |enu_No o|f.  .   |
|00001560| 20 41 70 70 6c 65 4d 65 | 6e 75 3a 20 69 66 20 49 | AppleMe|nu: if I|
|00001570| 74 65 6d 5f 6e 6f 20 3d | 20 31 0d 20 20 20 20 20 |tem_no =| 1.     |
|00001580| 20 20 74 68 65 6e 20 62 | 65 67 69 6e 09 7b 41 62 |  then b|egin.{Ab|
|00001590| 6f 75 74 2e 2e 2e 7d 0d | 20 20 20 20 20 20 20 20 |out...}.|        |
|000015a0| 20 20 20 20 20 20 20 20 | 20 20 20 6f 75 72 44 6c |        |   ourDl|
|000015b0| 67 3a 3d 20 47 65 74 4e | 65 77 44 69 61 6c 6f 67 |g:= GetN|ewDialog|
|000015c0| 28 41 62 6f 75 74 49 44 | 2c 4e 49 4c 2c 50 4f 49 |(AboutID|,NIL,POI|
|000015d0| 4e 54 45 52 28 2d 31 29 | 29 3b 0d 20 20 20 20 20 |NTER(-1)|);.     |
|000015e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 4d 6f |        |      Mo|
|000015f0| 64 61 6c 44 69 61 6c 6f | 67 28 4e 49 4c 2c 69 29 |dalDialo|g(NIL,i)|
|00001600| 3b 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.      |        |
|00001610| 20 20 20 20 20 44 69 73 | 70 6f 73 44 69 61 6c 6f |     Dis|posDialo|
|00001620| 67 28 6f 75 72 44 6c 67 | 29 3b 0d 20 20 20 20 20 |g(ourDlg|);.     |
|00001630| 20 20 20 20 20 20 20 20 | 20 20 20 65 6e 64 0d 20 |        |   end. |
|00001640| 20 20 20 20 20 20 65 6c | 73 65 20 62 65 67 69 6e |      el|se begin|
|00001650| 7b 44 65 73 6b 20 41 63 | 63 65 73 73 6f 72 69 65 |{Desk Ac|cessorie|
|00001660| 73 7d 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 47 |s}.     |       G|
|00001670| 65 74 49 74 65 6d 28 47 | 65 74 4d 48 61 6e 64 6c |etItem(G|etMHandl|
|00001680| 65 28 41 70 70 6c 65 4d | 65 6e 75 29 2c 49 74 65 |e(AppleM|enu),Ite|
|00001690| 6d 5f 4e 6f 2c 4e 61 6d | 65 48 6f 6c 64 65 72 29 |m_No,Nam|eHolder)|
|000016a0| 3b 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 44 4e |;.      |      DN|
|000016b0| 41 20 3a 3d 20 4f 70 65 | 6e 44 65 73 6b 41 63 63 |A := Ope|nDeskAcc|
|000016c0| 28 4e 61 6d 65 48 6f 6c | 64 65 72 29 3b 0d 20 20 |(NameHol|der);.  |
|000016d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 65 6e |        |      en|
|000016e0| 64 3b 0d 20 20 0d 20 20 | 20 20 46 69 6c 65 4d 65 |d;.  .  |  FileMe|
|000016f0| 6e 75 3a 20 43 41 53 45 | 20 49 74 65 6d 5f 4e 6f |nu: CASE| Item_No|
|00001700| 20 4f 46 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 | OF.    |        |
|00001710| 20 20 20 20 20 20 20 20 | 20 20 20 31 3a 20 62 65 |        |   1: be|
|00001720| 67 69 6e 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |gin.    |        |
|00001730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001740| 20 20 20 6d 79 57 69 6e | 64 6f 77 3a 3d 20 53 65 |   myWin|dow:= Se|
|00001750| 74 55 70 54 65 78 74 57 | 69 6e 64 6f 77 28 77 69 |tUpTextW|indow(wi|
|00001760| 6e 64 49 44 29 3b 20 20 | 7b 4e 45 57 7d 0d 20 20 |ndID);  |{NEW}.  |
|00001770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6e 6f 77 |        |     now|
|00001790| 54 61 62 73 3a 3d 20 74 | 61 62 48 61 6e 64 6c 65 |Tabs:= t|abHandle|
|000017a0| 28 47 65 74 57 52 65 66 | 43 6f 6e 28 6d 79 57 69 |(GetWRef|Con(myWi|
|000017b0| 6e 64 6f 77 29 29 3b 0d | 20 20 20 20 20 20 20 20 |ndow));.|        |
|000017c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000017d0| 20 20 20 20 20 20 20 6e | 6f 77 54 45 3a 3d 20 6e |       n|owTE:= n|
|000017e0| 6f 77 54 61 62 73 5e 5e | 2e 74 61 62 54 45 3b 0d |owTabs^^|.tabTE;.|
|000017f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001800| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 44 |        |       D|
|00001810| 69 73 61 62 6c 65 49 74 | 65 6d 28 47 65 74 4d 48 |isableIt|em(GetMH|
|00001820| 61 6e 64 6c 65 28 46 69 | 6c 65 4d 65 6e 75 29 2c |andle(Fi|leMenu),|
|00001830| 31 29 3b 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |1);.    |        |
|00001840| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001850| 65 6e 64 3b 0d 20 20 20 | 20 20 20 20 20 20 20 20 |end;.   |        |
|00001860| 20 20 20 20 20 20 20 20 | 20 20 20 32 3a 20 64 6f |        |   2: do|
|00001870| 6e 65 3a 3d 20 54 52 55 | 45 3b 09 7b 51 55 49 54 |ne:= TRU|E;.{QUIT|
|00001880| 7d 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |}.      |        |
|00001890| 20 20 20 20 20 20 20 20 | 65 6e 64 20 20 7b 43 41 |        |end  {CA|
|000018a0| 53 45 7d 3b 0d 20 20 0d | 20 20 20 20 45 64 69 74 |SE};.  .|    Edit|
|000018b0| 4d 65 6e 75 3a 0d 20 20 | 20 20 20 20 49 66 20 4e |Menu:.  |    If N|
|000018c0| 6f 74 20 53 79 73 74 65 | 6d 45 64 69 74 28 49 74 |ot Syste|mEdit(It|
|000018d0| 65 6d 5f 6e 6f 20 2d 20 | 31 29 20 74 68 65 6e 09 |em_no - |1) then.|
|000018e0| 7b 66 6f 72 20 44 41 73 | 7d 0d 09 43 41 53 45 20 |{for DAs|}..CASE |
|000018f0| 49 74 65 6d 5f 4e 6f 20 | 4f 46 0d 09 31 3a 09 3b |Item_No |OF..1:.;|
|00001900| 09 7b 75 6e 64 6f 7d 0d | 09 7b 20 32 3a 20 20 6c |.{undo}.|.{ 2:  l|
|00001910| 69 6e 65 20 64 69 76 69 | 64 65 72 7d 0d 09 33 3a |ine divi|der}..3:|
|00001920| 20 54 45 43 75 74 28 6e | 6f 77 54 45 29 3b 0d 09 | TECut(n|owTE);..|
|00001930| 34 3a 20 54 45 43 6f 70 | 79 28 6e 6f 77 54 45 29 |4: TECop|y(nowTE)|
|00001940| 3b 0d 09 35 3a 20 54 45 | 50 61 73 74 65 28 6e 6f |;..5: TE|Paste(no|
|00001950| 77 54 45 29 3b 0d 09 36 | 3a 20 54 45 44 65 6c 65 |wTE);..6|: TEDele|
|00001960| 74 65 28 6e 6f 77 54 45 | 29 3b 0d 09 65 6e 64 20 |te(nowTE|);..end |
|00001970| 20 7b 49 74 65 6d 5f 4e | 6f 20 43 41 53 45 7d 3b | {Item_N|o CASE};|
|00001980| 0d 20 20 0d 20 20 20 20 | 45 6e 64 09 7b 4d 65 6e |.  .    |End.{Men|
|00001990| 75 5f 4e 6f 20 43 41 53 | 45 7d 3b 0d 20 20 45 4e |u_No CAS|E};.  EN|
|000019a0| 44 09 7b 69 66 7d 3b 0d | 0d 20 20 48 69 6c 69 74 |D.{if};.|.  Hilit|
|000019b0| 65 4d 65 6e 75 28 30 29 | 3b 20 20 20 20 20 20 20 |eMenu(0)|;       |
|000019c0| 20 20 20 20 20 20 20 20 | 7b 75 6e 68 69 6c 69 74 |        |{unhilit|
|000019d0| 65 20 61 66 74 65 72 20 | 70 72 6f 63 65 73 73 69 |e after |processi|
|000019e0| 6e 67 20 6d 65 6e 75 7d | 0d 45 6e 64 3b 20 7b 50 |ng menu}|.End; {P|
|000019f0| 72 6f 63 65 73 73 4d 65 | 6e 75 7d 0d 0d 7b 2a 2a |rocessMe|nu}..{**|
|00001a00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001a10| 2a 2a 2a 20 45 6e 64 20 | 6f 66 20 4d 65 6e 75 20 |*** End |of Menu |
|00001a20| 50 72 6f 63 65 73 73 69 | 6e 67 20 2a 2a 2a 2a 2a |Processi|ng *****|
|00001a30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 7d |********|*******}|
|00001a40| 0d 7b 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.{******|********|
|00001a50| 2a 2a 2a 2a 2a 20 45 76 | 65 6e 74 20 50 72 6f 63 |***** Ev|ent Proc|
|00001a60| 65 73 73 69 6e 67 20 52 | 6f 75 74 69 6e 65 73 20 |essing R|outines |
|00001a70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001a80| 2a 2a 2a 7d 0d 7b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |***}.{--|--------|
|00001a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ae0| 2d 2d 2d 2d 7d 0d 0d 50 | 52 4f 43 45 44 55 52 45 |----}..P|ROCEDURE|
|00001af0| 20 4d 6f 75 73 65 44 6f | 77 6e 73 28 45 76 65 6e | MouseDo|wns(Even|
|00001b00| 74 3a 45 76 65 6e 74 52 | 65 63 6f 72 64 29 3b 0d |t:EventR|ecord);.|
|00001b10| 56 61 72 0d 20 20 57 69 | 6e 64 6f 77 50 6f 69 6e |Var.  Wi|ndowPoin|
|00001b20| 74 65 64 54 6f 3a 09 57 | 69 6e 64 6f 77 50 74 72 |tedTo:.W|indowPtr|
|00001b30| 3b 0d 20 20 4d 6f 75 73 | 65 4c 6f 63 3a 09 09 50 |;.  Mous|eLoc:..P|
|00001b40| 6f 69 6e 74 3b 0d 20 20 | 57 69 6e 64 6f 4c 6f 63 |oint;.  |WindoLoc|
|00001b50| 3a 09 09 69 6e 74 65 67 | 65 72 3b 0d 42 65 67 69 |:..integ|er;.Begi|
|00001b60| 6e 0d 20 20 4d 6f 75 73 | 65 4c 6f 63 20 3a 3d 20 |n.  Mous|eLoc := |
|00001b70| 45 76 65 6e 74 2e 57 68 | 65 72 65 3b 0d 20 20 57 |Event.Wh|ere;.  W|
|00001b80| 69 6e 64 6f 4c 6f 63 20 | 3a 3d 20 46 69 6e 64 57 |indoLoc |:= FindW|
|00001b90| 69 6e 64 6f 77 28 4d 6f | 75 73 65 4c 6f 63 2c 20 |indow(Mo|useLoc, |
|00001ba0| 57 69 6e 64 6f 77 50 6f | 69 6e 74 65 64 54 6f 29 |WindowPo|intedTo)|
|00001bb0| 3b 0d 20 20 43 41 53 45 | 20 57 69 6e 64 6f 4c 6f |;.  CASE| WindoLo|
|00001bc0| 63 20 4f 46 0d 0d 20 20 | 69 6e 44 65 73 6b 3a 20 |c OF..  |inDesk: |
|00001bd0| 7b 65 6d 70 74 79 20 73 | 74 61 74 65 6d 65 6e 74 |{empty s|tatement|
|00001be0| 7d 3b 0d 0d 20 20 69 6e | 4d 65 6e 75 42 61 72 3a |};..  in|MenuBar:|
|00001bf0| 20 50 72 6f 63 65 73 73 | 4d 65 6e 75 28 4d 65 6e | Process|Menu(Men|
|00001c00| 75 53 65 6c 65 63 74 28 | 4d 6f 75 73 65 4c 6f 63 |uSelect(|MouseLoc|
|00001c10| 29 29 3b 0d 0d 20 20 69 | 6e 53 79 73 57 69 6e 64 |));..  i|nSysWind|
|00001c20| 6f 77 3a 20 53 79 73 74 | 65 6d 43 6c 69 63 6b 28 |ow: Syst|emClick(|
|00001c30| 45 76 65 6e 74 2c 57 69 | 6e 64 6f 77 50 6f 69 6e |Event,Wi|ndowPoin|
|00001c40| 74 65 64 54 6f 29 3b 09 | 7b 64 65 73 6b 20 61 63 |tedTo);.|{desk ac|
|00001c50| 63 65 73 73 6f 72 69 65 | 73 7d 0d 0d 20 20 6f 74 |cessorie|s}..  ot|
|00001c60| 68 65 72 77 69 73 65 20 | 69 66 20 57 69 6e 64 6f |herwise |if Windo|
|00001c70| 77 50 6f 69 6e 74 65 64 | 54 6f 20 3c 3e 20 46 72 |wPointed|To <> Fr|
|00001c80| 6f 6e 74 57 69 6e 64 6f | 77 0d 20 20 20 20 54 48 |ontWindo|w.    TH|
|00001c90| 45 4e 20 53 65 6c 65 63 | 74 57 69 6e 64 6f 77 28 |EN Selec|tWindow(|
|00001ca0| 57 69 6e 64 6f 77 50 6f | 69 6e 74 65 64 54 6f 29 |WindowPo|intedTo)|
|00001cb0| 09 09 7b 69 66 20 77 69 | 6e 64 6f 77 20 6e 6f 74 |..{if wi|ndow not|
|00001cc0| 20 61 63 74 69 76 65 2c | 20 74 68 65 6e 20 61 63 | active,| then ac|
|00001cd0| 74 69 76 61 74 65 20 69 | 74 7d 0d 20 20 20 20 45 |tivate i|t}.    E|
|00001ce0| 4c 53 45 20 43 41 53 45 | 20 57 69 6e 64 6f 4c 6f |LSE CASE| WindoLo|
|00001cf0| 63 20 4f 46 0d 0d 20 20 | 20 20 20 20 20 20 20 20 |c OF..  |        |
|00001d00| 20 20 20 20 20 20 69 6e | 43 6f 6e 74 65 6e 74 3a |      in|Content:|
|00001d10| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001d20| 20 20 20 20 42 45 47 49 | 4e 0d 20 20 20 20 20 20 |    BEGI|N.      |
|00001d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 47 |        |       G|
|00001d40| 6c 6f 62 61 6c 54 6f 4c | 6f 63 61 6c 28 4d 6f 75 |lobalToL|ocal(Mou|
|00001d50| 73 65 4c 6f 63 29 3b 0d | 20 20 20 20 20 20 20 20 |seLoc);.|        |
|00001d60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 54 45 43 |        |     TEC|
|00001d70| 6c 69 63 6b 28 4d 6f 75 | 73 65 4c 6f 63 2c 28 42 |lick(Mou|seLoc,(B|
|00001d80| 69 74 41 6e 64 28 45 76 | 65 6e 74 2e 6d 6f 64 69 |itAnd(Ev|ent.modi|
|00001d90| 66 69 65 72 73 2c 73 68 | 69 66 74 4b 65 79 29 20 |fiers,sh|iftKey) |
|00001da0| 09 3d 20 73 68 69 66 74 | 4b 65 79 29 2c 6e 6f 77 |.= shift|Key),now|
|00001db0| 54 45 29 3b 0d 20 20 20 | 20 20 20 20 20 20 20 20 |TE);.   |        |
|00001dc0| 20 20 20 20 20 20 20 20 | 45 4e 44 3b 0d 20 0d 20 |        |END;. . |
|00001dd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 69 |        |       i|
|00001de0| 6e 47 72 6f 77 3a 20 7b | 65 6d 70 74 79 20 73 74 |nGrow: {|empty st|
|00001df0| 61 74 65 6d 65 6e 74 7d | 3b 0d 0d 20 20 20 20 20 |atement}|;..     |
|00001e00| 20 20 20 20 20 20 20 20 | 20 20 20 69 6e 44 72 61 |        |   inDra|
|00001e10| 67 3a 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |g:.     |        |
|00001e20| 20 20 20 20 20 44 72 61 | 67 57 69 6e 64 6f 77 28 |     Dra|gWindow(|
|00001e30| 57 69 6e 64 6f 77 50 6f | 69 6e 74 65 64 54 6f 2c |WindowPo|intedTo,|
|00001e40| 4d 6f 75 73 65 4c 6f 63 | 2c 44 72 61 67 41 72 65 |MouseLoc|,DragAre|
|00001e50| 61 29 3b 0d 20 0d 20 20 | 20 20 20 20 20 20 20 20 |a);. .  |        |
|00001e60| 20 20 20 20 20 20 69 6e | 47 6f 41 77 61 79 3a 0d |      in|GoAway:.|
|00001e70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001e80| 20 20 49 66 20 54 72 61 | 63 6b 47 6f 41 77 61 79 |  If Tra|ckGoAway|
|00001e90| 28 57 69 6e 64 6f 77 50 | 6f 69 6e 74 65 64 54 6f |(WindowP|ointedTo|
|00001ea0| 2c 4d 6f 75 73 65 4c 6f | 63 29 20 74 68 65 6e 0d |,MouseLo|c) then.|
|00001eb0| 09 20 20 20 20 20 20 20 | 20 20 20 62 65 67 69 6e |.       |   begin|
|00001ec0| 0d 09 20 20 20 20 20 20 | 20 20 20 20 20 20 54 45 |..      |      TE|
|00001ed0| 44 69 73 70 6f 73 65 28 | 6e 6f 77 54 45 29 3b 0d |Dispose(|nowTE);.|
|00001ee0| 09 20 20 20 20 20 20 20 | 20 20 20 20 20 44 69 73 |.       |     Dis|
|00001ef0| 70 6f 73 48 61 6e 64 6c | 65 28 68 61 6e 64 6c 65 |posHandl|e(handle|
|00001f00| 28 6e 6f 77 54 61 62 73 | 29 29 3b 0d 09 20 20 20 |(nowTabs|));..   |
|00001f10| 20 20 20 20 20 20 20 20 | 20 6e 6f 77 54 61 62 73 |        | nowTabs|
|00001f20| 3a 3d 20 4e 49 4c 3b 0d | 09 20 20 20 20 20 20 20 |:= NIL;.|.       |
|00001f30| 20 20 20 20 20 44 69 73 | 70 6f 73 65 57 69 6e 64 |     Dis|poseWind|
|00001f40| 6f 77 28 57 69 6e 64 6f | 77 50 6f 69 6e 74 65 64 |ow(Windo|wPointed|
|00001f50| 54 6f 29 3b 0d 09 20 20 | 20 20 20 20 20 20 20 20 |To);..  |        |
|00001f60| 20 45 6e 61 62 6c 65 49 | 74 65 6d 28 47 65 74 4d | EnableI|tem(GetM|
|00001f70| 48 61 6e 64 6c 65 28 46 | 69 6c 65 4d 65 6e 75 29 |Handle(F|ileMenu)|
|00001f80| 2c 31 29 3b 0d 09 20 20 | 20 20 20 20 20 20 20 20 |,1);..  |        |
|00001f90| 65 6e 64 3b 0d 20 20 20 | 20 20 20 20 20 20 20 20 |end;.   |        |
|00001fa0| 20 20 20 20 20 45 4e 44 | 20 7b 43 41 53 45 7d 3b |     END| {CASE};|
|00001fb0| 0d 0d 20 20 45 6e 64 20 | 20 7b 43 41 53 45 7d 3b |..  End | {CASE};|
|00001fc0| 0d 45 6e 64 09 7b 4d 6f | 75 73 65 44 6f 77 6e 73 |.End.{Mo|useDowns|
|00001fd0| 7d 3b 0d 0d 7b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |};..{---|--------|
|00001fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002030| 2d 2d 2d 7d 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |---}..PR|OCEDURE |
|00002040| 4b 65 79 44 6f 77 6e 73 | 28 45 76 65 6e 74 3a 45 |KeyDowns|(Event:E|
|00002050| 76 65 6e 74 52 65 63 6f | 72 64 29 3b 0d 56 61 72 |ventReco|rd);.Var|
|00002060| 09 43 68 61 72 43 6f 64 | 65 3a 09 63 68 61 72 3b |.CharCod|e:.char;|
|00002070| 0d 42 65 67 69 6e 0d 20 | 20 43 68 61 72 43 6f 64 |.Begin. | CharCod|
|00002080| 65 20 20 20 3a 3d 20 63 | 68 72 28 62 69 74 41 6e |e   := c|hr(bitAn|
|00002090| 64 28 45 76 65 6e 74 2e | 6d 65 73 73 61 67 65 2c |d(Event.|message,|
|000020a0| 63 68 61 72 43 6f 64 65 | 4d 61 73 6b 29 29 3b 0d |charCode|Mask));.|
|000020b0| 20 0d 20 20 49 66 20 42 | 69 74 41 6e 64 28 45 76 | .  If B|itAnd(Ev|
|000020c0| 65 6e 74 2e 6d 6f 64 69 | 66 69 65 72 73 2c 43 6d |ent.modi|fiers,Cm|
|000020d0| 64 4b 65 79 29 20 3d 20 | 43 6d 64 4b 65 79 0d 20 |dKey) = |CmdKey. |
|000020e0| 20 20 20 74 68 65 6e 20 | 50 72 6f 63 65 73 73 4d |   then |ProcessM|
|000020f0| 65 6e 75 28 4d 65 6e 75 | 4b 65 79 28 43 68 61 72 |enu(Menu|Key(Char|
|00002100| 43 6f 64 65 29 29 0d 20 | 20 20 20 65 6c 73 65 20 |Code)). |   else |
|00002110| 54 45 4b 65 79 28 43 68 | 61 72 43 6f 64 65 2c 6e |TEKey(Ch|arCode,n|
|00002120| 6f 77 54 45 29 3b 20 20 | 20 20 20 20 20 20 7b 72 |owTE);  |      {r|
|00002130| 65 67 75 6c 61 72 20 6b | 65 79 62 6f 61 72 64 20 |egular k|eyboard |
|00002140| 65 6e 74 72 79 7d 0d 0d | 45 6e 64 20 20 7b 4b 65 |entry}..|End  {Ke|
|00002150| 79 44 6f 77 6e 73 7d 3b | 0d 0d 7b 2d 2d 2d 2d 2d |yDowns};|..{-----|
|00002160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 7d 0d 0d 50 52 4f 43 |--------|-}..PROC|
|000021c0| 45 44 55 52 45 20 41 63 | 74 69 76 61 74 65 73 28 |EDURE Ac|tivates(|
|000021d0| 45 76 65 6e 74 3a 20 45 | 76 65 6e 74 52 65 63 6f |Event: E|ventReco|
|000021e0| 72 64 29 3b 0d 56 61 72 | 0d 20 20 54 61 72 67 65 |rd);.Var|.  Targe|
|000021f0| 74 57 69 6e 64 6f 77 3a | 09 57 69 6e 64 6f 77 50 |tWindow:|.WindowP|
|00002200| 74 72 3b 0d 20 20 61 63 | 74 69 76 65 3a 09 62 6f |tr;.  ac|tive:.bo|
|00002210| 6f 6c 65 61 6e 3b 0d 20 | 20 61 48 6e 64 6c 3a 09 |olean;. | aHndl:.|
|00002220| 68 61 6e 64 6c 65 3b 0d | 0d 42 65 67 69 6e 0d 20 |handle;.|.Begin. |
|00002230| 20 54 61 72 67 65 74 57 | 69 6e 64 6f 77 20 3a 3d | TargetW|indow :=|
|00002240| 20 57 69 6e 64 6f 77 50 | 74 72 28 45 76 65 6e 74 | WindowP|tr(Event|
|00002250| 2e 6d 65 73 73 61 67 65 | 29 3b 0d 20 20 61 63 74 |.message|);.  act|
|00002260| 69 76 65 3a 3d 20 4f 64 | 64 28 45 76 65 6e 74 2e |ive:= Od|d(Event.|
|00002270| 6d 6f 64 69 66 69 65 72 | 73 29 3b 0d 7b 74 72 75 |modifier|s);.{tru|
|00002280| 65 20 3d 20 74 68 65 20 | 77 69 6e 64 6f 77 20 69 |e = the |window i|
|00002290| 73 20 62 65 63 6f 6d 69 | 6e 67 20 61 63 74 69 76 |s becomi|ng activ|
|000022a0| 65 7d 0d 0d 20 20 49 46 | 20 61 63 74 69 76 65 20 |e}..  IF| active |
|000022b0| 54 48 45 4e 0d 20 20 20 | 20 62 65 67 69 6e 0d 20 |THEN.   | begin. |
|000022c0| 20 20 20 20 20 53 65 74 | 50 6f 72 74 28 54 61 72 |     Set|Port(Tar|
|000022d0| 67 65 74 57 69 6e 64 6f | 77 29 3b 0d 20 20 20 20 |getWindo|w);.    |
|000022e0| 20 20 6e 6f 77 54 61 62 | 73 3a 3d 20 74 61 62 48 |  nowTab|s:= tabH|
|000022f0| 61 6e 64 6c 65 28 47 65 | 74 57 52 65 66 43 6f 6e |andle(Ge|tWRefCon|
|00002300| 28 54 61 72 67 65 74 57 | 69 6e 64 6f 77 29 29 3b |(TargetW|indow));|
|00002310| 0d 20 20 20 20 20 20 6e | 6f 77 54 45 3a 3d 20 6e |.      n|owTE:= n|
|00002320| 6f 77 54 61 62 73 5e 5e | 2e 74 61 62 54 45 3b 0d |owTabs^^|.tabTE;.|
|00002330| 20 20 20 20 20 20 54 45 | 41 63 74 69 76 61 74 65 |      TE|Activate|
|00002340| 28 6e 6f 77 54 45 29 3b | 0d 20 20 20 20 65 6e 64 |(nowTE);|.    end|
|00002350| 20 45 4c 53 45 0d 20 20 | 20 20 62 65 67 69 6e 0d | ELSE.  |  begin.|
|00002360| 20 20 20 20 20 20 54 45 | 44 65 41 63 74 69 76 61 |      TE|DeActiva|
|00002370| 74 65 28 6e 6f 77 54 45 | 29 3b 0d 20 20 20 20 20 |te(nowTE|);.     |
|00002380| 20 6e 6f 77 54 61 62 73 | 3a 3d 20 4e 49 4c 3b 0d | nowTabs|:= NIL;.|
|00002390| 20 20 20 20 65 6e 64 3b | 0d 0d 45 6e 64 09 7b 41 |    end;|..End.{A|
|000023a0| 63 74 69 76 61 74 65 73 | 7d 3b 0d 0d 7b 2d 2d 2d |ctivates|};..{---|
|000023b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 7d 0d 0d 50 52 |--------|---}..PR|
|00002410| 4f 43 45 44 55 52 45 20 | 55 70 64 61 74 65 73 28 |OCEDURE |Updates(|
|00002420| 45 76 65 6e 74 3a 45 76 | 65 6e 74 52 65 63 6f 72 |Event:Ev|entRecor|
|00002430| 64 29 3b 0d 56 61 72 0d | 20 20 55 70 44 61 74 65 |d);.Var.|  UpDate|
|00002440| 57 69 6e 64 6f 77 2c 0d | 20 20 73 61 76 65 50 6f |Window,.|  savePo|
|00002450| 72 74 3a 09 09 57 69 6e | 64 6f 77 50 74 72 3b 0d |rt:..Win|dowPtr;.|
|00002460| 74 65 6d 70 54 61 62 73 | 3a 09 09 54 61 62 48 61 |tempTabs|:..TabHa|
|00002470| 6e 64 6c 65 3b 0d 42 65 | 67 69 6e 0d 20 20 55 70 |ndle;.Be|gin.  Up|
|00002480| 44 61 74 65 57 69 6e 64 | 6f 77 20 3a 3d 20 57 69 |DateWind|ow := Wi|
|00002490| 6e 64 6f 77 50 74 72 28 | 45 76 65 6e 74 2e 6d 65 |ndowPtr(|Event.me|
|000024a0| 73 73 61 67 65 29 3b 0d | 20 20 47 65 74 50 6f 72 |ssage);.|  GetPor|
|000024b0| 74 28 73 61 76 65 50 6f | 72 74 29 3b 09 09 7b 53 |t(savePo|rt);..{S|
|000024c0| 61 76 65 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |ave the |current |
|000024d0| 70 6f 72 74 7d 0d 20 20 | 74 65 6d 70 54 61 62 73 |port}.  |tempTabs|
|000024e0| 3a 3d 20 6e 6f 77 54 61 | 62 73 3b 09 7b 53 61 76 |:= nowTa|bs;.{Sav|
|000024f0| 65 20 63 75 72 72 65 6e | 74 20 74 61 62 73 48 61 |e curren|t tabsHa|
|00002500| 6e 64 6c 65 7d 0d 20 20 | 53 65 74 50 6f 72 74 28 |ndle}.  |SetPort(|
|00002510| 55 70 44 61 74 65 57 69 | 6e 64 6f 77 29 3b 09 7b |UpDateWi|ndow);.{|
|00002520| 73 65 74 20 74 68 65 20 | 70 6f 72 74 20 74 6f 20 |set the |port to |
|00002530| 6f 6e 65 20 69 6e 20 45 | 76 74 2e 6d 73 67 7d 0d |one in E|vt.msg}.|
|00002540| 20 20 6e 6f 77 54 61 62 | 73 3a 3d 20 74 61 62 48 |  nowTab|s:= tabH|
|00002550| 61 6e 64 6c 65 28 47 65 | 74 57 52 65 66 43 6f 6e |andle(Ge|tWRefCon|
|00002560| 28 55 70 44 61 74 65 57 | 69 6e 64 6f 77 29 29 3b |(UpDateW|indow));|
|00002570| 0d 20 20 42 65 67 69 6e | 55 70 44 61 74 65 28 55 |.  Begin|UpDate(U|
|00002580| 70 44 61 74 65 57 69 6e | 64 6f 77 29 3b 0d 20 20 |pDateWin|dow);.  |
|00002590| 45 72 61 73 65 52 65 63 | 74 28 55 70 44 61 74 65 |EraseRec|t(UpDate|
|000025a0| 57 69 6e 64 6f 77 5e 2e | 56 69 73 52 67 6e 5e 5e |Window^.|VisRgn^^|
|000025b0| 2e 72 67 6e 42 42 6f 78 | 29 3b 0d 20 20 77 69 74 |.rgnBBox|);.  wit|
|000025c0| 68 20 6e 6f 77 54 61 62 | 73 5e 5e 20 20 44 4f 20 |h nowTab|s^^  DO |
|000025d0| 54 45 55 70 64 61 74 65 | 28 74 61 62 54 45 5e 5e |TEUpdate|(tabTE^^|
|000025e0| 2e 76 69 65 77 52 65 63 | 74 2c 74 61 62 54 45 29 |.viewRec|t,tabTE)|
|000025f0| 3b 0d 20 20 45 6e 64 55 | 70 44 61 74 65 28 55 70 |;.  EndU|pDate(Up|
|00002600| 44 61 74 65 57 69 6e 64 | 6f 77 29 3b 0d 20 20 53 |DateWind|ow);.  S|
|00002610| 65 74 50 6f 72 74 28 73 | 61 76 65 50 6f 72 74 29 |etPort(s|avePort)|
|00002620| 3b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 7b 72 |;       |      {r|
|00002630| 65 73 74 6f 72 65 20 74 | 6f 20 74 68 65 20 70 72 |estore t|o the pr|
|00002640| 65 76 69 6f 75 73 20 70 | 6f 72 74 7d 0d 20 20 6e |evious p|ort}.  n|
|00002650| 6f 77 54 61 62 73 3a 3d | 20 74 65 6d 70 54 61 62 |owTabs:=| tempTab|
|00002660| 73 3b 20 20 20 20 20 7b | 72 65 73 74 6f 72 65 20 |s;     {|restore |
|00002670| 74 6f 20 63 75 72 72 65 | 6e 74 20 74 61 62 48 61 |to curre|nt tabHa|
|00002680| 6e 64 6c 65 7d 0d 45 6e | 64 09 7b 55 70 64 61 74 |ndle}.En|d.{Updat|
|00002690| 65 73 7d 3b 0d 0d 7b 2a | 2a 2a 2a 2a 2a 2a 2a 2a |es};..{*|********|
|000026a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 20 45 6e 64 20 |********|*** End |
|000026b0| 6f 66 20 45 76 65 6e 74 | 20 50 72 6f 63 65 73 73 |of Event| Process|
|000026c0| 69 6e 67 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |ing ****|********|
|000026d0| 2a 2a 2a 2a 2a 2a 2a 2a | 7d 0d 7b 2d 2d 2d 2d 2d |********|}.{-----|
|000026e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000026f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 7d 0d 0d 50 52 4f 43 |--------|-}..PROC|
|00002740| 45 44 55 52 45 20 4d 61 | 69 6e 45 76 65 6e 74 4c |EDURE Ma|inEventL|
|00002750| 6f 6f 70 3b 0d 56 61 72 | 0d 20 20 45 76 65 6e 74 |oop;.Var|.  Event|
|00002760| 3a 45 76 65 6e 74 52 65 | 63 6f 72 64 3b 0d 20 20 |:EventRe|cord;.  |
|00002770| 6d 6f 75 73 65 50 74 3a | 20 50 6f 69 6e 74 3b 0d |mousePt:| Point;.|
|00002780| 42 65 67 69 6e 0d 20 20 | 52 65 70 65 61 74 0d 20 |Begin.  |Repeat. |
|00002790| 20 20 20 53 79 73 74 65 | 6d 54 61 73 6b 3b 20 20 |   Syste|mTask;  |
|000027a0| 20 20 20 20 20 20 20 20 | 20 20 20 7b 72 75 6e 20 |        |   {run |
|000027b0| 44 65 73 6b 20 41 63 63 | 65 73 73 6f 72 69 65 73 |Desk Acc|essories|
|000027c0| 7d 0d 20 20 20 0d 20 20 | 20 20 69 66 20 6d 79 57 |}.   .  |  if myW|
|000027d0| 69 6e 64 6f 77 20 3d 20 | 46 72 6f 6e 74 57 69 6e |indow = |FrontWin|
|000027e0| 64 6f 77 20 74 68 65 6e | 0d 20 20 20 20 20 20 62 |dow then|.      b|
|000027f0| 65 67 69 6e 0d 20 20 20 | 20 20 20 20 20 20 20 47 |egin.   |       G|
|00002800| 65 74 4d 6f 75 73 65 28 | 4d 6f 75 73 65 50 74 29 |etMouse(|MousePt)|
|00002810| 3b 0d 20 20 20 20 20 20 | 20 20 20 20 69 66 20 50 |;.      |    if P|
|00002820| 74 69 6e 52 65 63 74 28 | 4d 6f 75 73 65 50 74 2c |tinRect(|MousePt,|
|00002830| 6e 6f 77 54 45 5e 5e 2e | 76 69 65 77 52 65 63 74 |nowTE^^.|viewRect|
|00002840| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00002850| 74 68 65 6e 20 53 65 74 | 43 75 72 73 6f 72 28 74 |then Set|Cursor(t|
|00002860| 65 78 74 43 75 72 73 6f | 72 5e 5e 29 0d 20 20 20 |extCurso|r^^).   |
|00002870| 20 20 20 20 20 20 20 20 | 20 20 65 6c 73 65 20 53 |        |  else S|
|00002880| 65 74 43 75 72 73 6f 72 | 28 61 72 72 6f 77 29 3b |etCursor|(arrow);|
|00002890| 0d 20 20 20 20 20 20 20 | 20 20 20 54 45 49 64 6c |.       |   TEIdl|
|000028a0| 65 28 6e 6f 77 54 45 29 | 3b 0d 20 20 20 20 20 20 |e(nowTE)|;.      |
|000028b0| 65 6e 64 3b 0d 0d 20 20 | 20 20 49 66 20 20 47 65 |end;..  |  If  Ge|
|000028c0| 74 4e 65 78 74 45 76 65 | 6e 74 28 45 76 65 72 79 |tNextEve|nt(Every|
|000028d0| 45 76 65 6e 74 2c 45 76 | 65 6e 74 29 20 74 68 65 |Event,Ev|ent) the|
|000028e0| 6e 0d 20 20 20 20 20 20 | 43 41 53 45 20 45 76 65 |n.      |CASE Eve|
|000028f0| 6e 74 2e 77 68 61 74 20 | 4f 46 0d 0d 20 20 20 20 |nt.what |OF..    |
|00002900| 20 20 6d 6f 75 73 65 44 | 6f 77 6e 3a 09 09 4d 6f |  mouseD|own:..Mo|
|00002910| 75 73 65 44 6f 77 6e 73 | 28 45 76 65 6e 74 29 3b |useDowns|(Event);|
|00002920| 0d 20 20 20 20 20 20 4b | 65 79 44 6f 77 6e 2c 61 |.      K|eyDown,a|
|00002930| 75 74 6f 4b 65 79 3a 09 | 4b 65 79 44 6f 77 6e 73 |utoKey:.|KeyDowns|
|00002940| 28 45 76 65 6e 74 29 3b | 0d 20 20 20 20 20 20 41 |(Event);|.      A|
|00002950| 63 74 69 76 61 74 65 45 | 76 74 3a 09 09 41 63 74 |ctivateE|vt:..Act|
|00002960| 69 76 61 74 65 73 28 45 | 76 65 6e 74 29 3b 0d 20 |ivates(E|vent);. |
|00002970| 20 20 20 20 20 55 70 44 | 61 74 65 45 76 74 3a 09 |     UpD|ateEvt:.|
|00002980| 09 55 70 64 61 74 65 73 | 28 45 76 65 6e 74 29 3b |.Updates|(Event);|
|00002990| 0d 20 20 20 20 20 20 45 | 4e 44 20 20 7b 43 41 53 |.      E|ND  {CAS|
|000029a0| 45 7d 3b 0d 20 20 55 6e | 74 69 6c 20 64 6f 6e 65 |E};.  Un|til done|
|000029b0| 3b 09 20 7b 74 65 72 6d | 69 6e 61 74 65 20 74 68 |;. {term|inate th|
|000029c0| 65 20 70 72 6f 67 72 61 | 6d 7d 0d 45 6e 64 3b 0d |e progra|m}.End;.|
|000029d0| 0d 7b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.{------|--------|
|000029e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000029f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a30| 7d 0d 0d 42 45 47 49 4e | 09 7b 4d 61 69 6e 20 50 |}..BEGIN|.{Main P|
|00002a40| 72 6f 67 72 61 6d 7d 0d | 20 20 49 6e 69 74 69 61 |rogram}.|  Initia|
|00002a50| 6c 69 7a 65 3b 0d 20 20 | 4d 61 69 6e 45 76 65 6e |lize;.  |MainEven|
|00002a60| 74 4c 6f 6f 70 3b 0d 20 | 20 67 6c 6f 62 61 6c 41 |tLoop;. | globalA|
|00002a70| 37 30 5e 3a 3d 20 73 74 | 64 54 45 44 6f 54 65 78 |70^:= st|dTEDoTex|
|00002a80| 74 3b 0d 20 20 67 6c 6f | 62 61 6c 37 46 43 5e 3a |t;.  glo|bal7FC^:|
|00002a90| 3d 20 73 74 64 6c 69 6e | 65 53 74 61 72 74 3b 0d |= stdlin|eStart;.|
|00002aa0| 45 4e 44 20 20 7b 54 61 | 62 45 64 69 74 6f 72 7d |END  {Ta|bEditor}|
|00002ab0| 2e 0d 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b00| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00002b10| 32 04 e2 41 03 02 67 02 | 70 20 30 c0 30 c5 30 c0 |2..A..g.|p 0.0.0.|
|00002b20| 20 c5 48 47 61 a0 35 bc | 02 59 40 0a 74 1b d4 43 | .HGa.5.|.Y@.t..C|
|00002b30| 0d 74 61 62 45 64 69 74 | 6f 72 2e 70 61 73 02 00 |.tabEdit|or.pas..|
|00002b40| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 04 00 1a |..TEXTED|IT......|
|00002b50| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 04 00 1a |..TEXTED|IT......|
|00002b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b70| 00 00 9b b6 d2 c7 00 00 | 2a 33 00 00 01 5c 60 a2 |........|*3...\`.|
|00002b80| 48 e7 c0 00 30 2e ff ee | 48 c0 32 00 e4 40 e2 41 |H...0...|H.2..@.A|
|00002b90| d0 47 80 c1 c0 c1 3e 00 | 4c df 00 03 4e 75 3f 03 |.G....>.|L...Nu?.|
|00002ba0| 3e 2e ff e4 35 87 40 0a | 30 2e ff da 72 00 e2 48 |>...5.@.|0...r..H|
|00002bb0| e5 f2 10 0a 54 41 bc 41 | 6c f4 70 00 72 02 4c b2 |....TA.A|l.p.r.L.|
|00002bc0| 00 0c 10 08 b6 42 6c 0a | 70 ff c5 43 48 b2 00 0c |.....Bl.|p..CH...|
|00002bd0| 10 08 54 41 bc 41 6e e6 | 4a 40 66 de e2 f2 10 0a |..TA.An.|J@f.....|
|00002be0| e3 50 be 72 10 0a 66 02 | 38 01 55 41 6a ee 3d 40 |.P.r..f.|8.UAj.=@|
|00002bf0| ff da 61 54 70 11 36 1f | d0 43 b0 6e ff e2 66 2a |..aTp.6.|.C.n..f*|
|00002c00| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 84 00 00 |.......M|onaco...|
|00002c10| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00002c20| 00 16 00 00 00 46 00 00 | cc 24 03 50 00 00 00 1c |.....F..|.$.P....|
|00002c30| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00002c40| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 01 cc 06 |........|........|
|00002c50| 03 ec ff ff 00 00 00 0e | 00 01 cc 1a 00 00 00 00 |........|........|
|00002c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+